/*-------------------------------------------------------------------------
 * saslprep.c
 *        SASLprep normalization, for SCRAM authentication
 *
 * The SASLprep algorithm is used to process a user-supplied password into
 * canonical form.  For more details, see:
 *
 * [RFC3454] Preparation of Internationalized Strings ("stringprep"),
 *      http://www.ietf.org/rfc/rfc3454.txt
 *
 * [RFC4013] SASLprep: Stringprep Profile for User Names and Passwords
 *      http://www.ietf.org/rfc/rfc4013.txt
 *
 *
 * Portions Copyright (c) 2017, PostgreSQL Global Development Group
 *
 * IDENTIFICATION
 *      src/common/saslprep.c
 *
 *-------------------------------------------------------------------------
 */
#ifndef FRONTEND
#include "postgres.h"
#else
#include "postgres_fe.h"
#endif

#include "common/saslprep.h"
#include "common/unicode_norm.h"

/*
 * Note: The functions in this file depend on functions from
 * src/backend/utils/mb/wchar.c, so in order to use this in frontend
 * code, you will need to link that in, too.
 */
#include "mb/pg_wchar.h"

/*
 * Limit on how large password's we will try to process.  A password
 * larger than this will be treated the same as out-of-memory.
 */
#define MAX_PASSWORD_LENGTH        1024

/*
 * In backend, we will use palloc/pfree.  In frontend, use malloc, and
 * return SASLPREP_OOM on out-of-memory.
 */
#ifndef FRONTEND
#define STRDUP(s) pstrdup(s)
#define ALLOC(size) palloc(size)
#define FREE(size) pfree(size)
#else
#define STRDUP(s) strdup(s)
#define ALLOC(size) malloc(size)
#define FREE(size) free(size)
#endif

/* Prototypes for local functions */
static int    codepoint_range_cmp(const void *a, const void *b);
static bool is_code_in_table(pg_wchar code, const pg_wchar *map, int mapsize);
static int    pg_utf8_string_len(const char *source);
static bool pg_is_ascii_string(const char *p);

/*
 * Stringprep Mapping Tables.
 *
 * The stringprep specification includes a number of tables of Unicode
 * codepoints, used in different parts of the algorithm.  They are below,
 * as arrays of codepoint ranges.  Each range is a pair of codepoints,
 * for the first and last codepoint included the range (inclusive!).
 */

/*
 * C.1.2 Non-ASCII space characters
 *
 * These are all mapped to the ASCII space character (U+00A0).
 */
static const pg_wchar non_ascii_space_ranges[] =
{
    0x00A0, 0x00A0,
    0x1680, 0x1680,
    0x2000, 0x200B,
    0x202F, 0x202F,
    0x205F, 0x205F,
    0x3000, 0x3000
};

/*
 * B.1 Commonly mapped to nothing
 *
 * If any of these appear in the input, they are removed.
 */
static const pg_wchar commonly_mapped_to_nothing_ranges[] =
{
    0x00AD, 0x00AD,
    0x034F, 0x034F,
    0x1806, 0x1806,
    0x180B, 0x180D,
    0x200B, 0x200D,
    0x2060, 0x2060,
    0xFE00, 0xFE0F,
    0xFEFF, 0xFEFF
};

/*
 * prohibited_output_ranges is a union of all the characters from
 * the following tables:
 *
 * C.1.2 Non-ASCII space characters
 * C.2.1 ASCII control characters
 * C.2.2 Non-ASCII control characters
 * C.3 Private Use characters
 * C.4 Non-character code points
 * C.5 Surrogate code points
 * C.6 Inappropriate for plain text characters
 * C.7 Inappropriate for canonical representation characters
 * C.7 Change display properties or deprecated characters
 * C.8 Tagging characters
 *
 * These are the tables that are listed as "prohibited output"
 * characters in the SASLprep profile.
 *
 * The comment after each code range indicates which source table
 * the code came from.  Note that there is some overlap in the source
 * tables, so one code might originate from multiple source tables.
 * Adjacent ranges have also been merged together, to save space.
 */
static const pg_wchar prohibited_output_ranges[] =
{
    0x0000, 0x001F,                /* C.2.1 */
    0x007F, 0x00A0,                /* C.1.2, C.2.1, C.2.2 */
    0x0340, 0x0341,                /* C.8 */
    0x06DD, 0x06DD,                /* C.2.2 */
    0x070F, 0x070F,                /* C.2.2 */
    0x1680, 0x1680,                /* C.1.2 */
    0x180E, 0x180E,                /* C.2.2 */
    0x2000, 0x200F,                /* C.1.2, C.2.2, C.8 */
    0x2028, 0x202F,                /* C.1.2, C.2.2, C.8 */
    0x205F, 0x2063,                /* C.1.2, C.2.2 */
    0x206A, 0x206F,                /* C.2.2, C.8 */
    0x2FF0, 0x2FFB,                /* C.7 */
    0x3000, 0x3000,                /* C.1.2 */
    0xD800, 0xF8FF,                /* C.3, C.5 */
    0xFDD0, 0xFDEF,                /* C.4 */
    0xFEFF, 0xFEFF,                /* C.2.2 */
    0xFFF9, 0xFFFF,                /* C.2.2, C.4, C.6 */
    0x1D173, 0x1D17A,            /* C.2.2 */
    0x1FFFE, 0x1FFFF,            /* C.4 */
    0x2FFFE, 0x2FFFF,            /* C.4 */
    0x3FFFE, 0x3FFFF,            /* C.4 */
    0x4FFFE, 0x4FFFF,            /* C.4 */
    0x5FFFE, 0x5FFFF,            /* C.4 */
    0x6FFFE, 0x6FFFF,            /* C.4 */
    0x7FFFE, 0x7FFFF,            /* C.4 */
    0x8FFFE, 0x8FFFF,            /* C.4 */
    0x9FFFE, 0x9FFFF,            /* C.4 */
    0xAFFFE, 0xAFFFF,            /* C.4 */
    0xBFFFE, 0xBFFFF,            /* C.4 */
    0xCFFFE, 0xCFFFF,            /* C.4 */
    0xDFFFE, 0xDFFFF,            /* C.4 */
    0xE0001, 0xE0001,            /* C.9 */
    0xE0020, 0xE007F,            /* C.9 */
    0xEFFFE, 0xEFFFF,            /* C.4 */
    0xF0000, 0xFFFFF,            /* C.3, C.4 */
    0x100000, 0x10FFFF            /* C.3, C.4 */
};

/* A.1 Unassigned code points in Unicode 3.2 */
static const pg_wchar unassigned_codepoint_ranges[] =
{
    0x0221, 0x0221,
    0x0234, 0x024F,
    0x02AE, 0x02AF,
    0x02EF, 0x02FF,
    0x0350, 0x035F,
    0x0370, 0x0373,
    0x0376, 0x0379,
    0x037B, 0x037D,
    0x037F, 0x0383,
    0x038B, 0x038B,
    0x038D, 0x038D,
    0x03A2, 0x03A2,
    0x03CF, 0x03CF,
    0x03F7, 0x03FF,
    0x0487, 0x0487,
    0x04CF, 0x04CF,
    0x04F6, 0x04F7,
    0x04FA, 0x04FF,
    0x0510, 0x0530,
    0x0557, 0x0558,
    0x0560, 0x0560,
    0x0588, 0x0588,
    0x058B, 0x0590,
    0x05A2, 0x05A2,
    0x05BA, 0x05BA,
    0x05C5, 0x05CF,
    0x05EB, 0x05EF,
    0x05F5, 0x060B,
    0x060D, 0x061A,
    0x061C, 0x061E,
    0x0620, 0x0620,
    0x063B, 0x063F,
    0x0656, 0x065F,
    0x06EE, 0x06EF,
    0x06FF, 0x06FF,
    0x070E, 0x070E,
    0x072D, 0x072F,
    0x074B, 0x077F,
    0x07B2, 0x0900,
    0x0904, 0x0904,
    0x093A, 0x093B,
    0x094E, 0x094F,
    0x0955, 0x0957,
    0x0971, 0x0980,
    0x0984, 0x0984,
    0x098D, 0x098E,
    0x0991, 0x0992,
    0x09A9, 0x09A9,
    0x09B1, 0x09B1,
    0x09B3, 0x09B5,
    0x09BA, 0x09BB,
    0x09BD, 0x09BD,
    0x09C5, 0x09C6,
    0x09C9, 0x09CA,
    0x09CE, 0x09D6,
    0x09D8, 0x09DB,
    0x09DE, 0x09DE,
    0x09E4, 0x09E5,
    0x09FB, 0x0A01,
    0x0A03, 0x0A04,
    0x0A0B, 0x0A0E,
    0x0A11, 0x0A12,
    0x0A29, 0x0A29,
    0x0A31, 0x0A31,
    0x0A34, 0x0A34,
    0x0A37, 0x0A37,
    0x0A3A, 0x0A3B,
    0x0A3D, 0x0A3D,
    0x0A43, 0x0A46,
    0x0A49, 0x0A4A,
    0x0A4E, 0x0A58,
    0x0A5D, 0x0A5D,
    0x0A5F, 0x0A65,
    0x0A75, 0x0A80,
    0x0A84, 0x0A84,
    0x0A8C, 0x0A8C,
    0x0A8E, 0x0A8E,
    0x0A92, 0x0A92,
    0x0AA9, 0x0AA9,
    0x0AB1, 0x0AB1,
    0x0AB4, 0x0AB4,
    0x0ABA, 0x0ABB,
    0x0AC6, 0x0AC6,
    0x0ACA, 0x0ACA,
    0x0ACE, 0x0ACF,
    0x0AD1, 0x0ADF,
    0x0AE1, 0x0AE5,
    0x0AF0, 0x0B00,
    0x0B04, 0x0B04,
    0x0B0D, 0x0B0E,
    0x0B11, 0x0B12,
    0x0B29, 0x0B29,
    0x0B31, 0x0B31,
    0x0B34, 0x0B35,
    0x0B3A, 0x0B3B,
    0x0B44, 0x0B46,
    0x0B49, 0x0B4A,
    0x0B4E, 0x0B55,
    0x0B58, 0x0B5B,
    0x0B5E, 0x0B5E,
    0x0B62, 0x0B65,
    0x0B71, 0x0B81,
    0x0B84, 0x0B84,
    0x0B8B, 0x0B8D,
    0x0B91, 0x0B91,
    0x0B96, 0x0B98,
    0x0B9B, 0x0B9B,
    0x0B9D, 0x0B9D,
    0x0BA0, 0x0BA2,
    0x0BA5, 0x0BA7,
    0x0BAB, 0x0BAD,
    0x0BB6, 0x0BB6,
    0x0BBA, 0x0BBD,
    0x0BC3, 0x0BC5,
    0x0BC9, 0x0BC9,
    0x0BCE, 0x0BD6,
    0x0BD8, 0x0BE6,
    0x0BF3, 0x0C00,
    0x0C04, 0x0C04,
    0x0C0D, 0x0C0D,
    0x0C11, 0x0C11,
    0x0C29, 0x0C29,
    0x0C34, 0x0C34,
    0x0C3A, 0x0C3D,
    0x0C45, 0x0C45,
    0x0C49, 0x0C49,
    0x0C4E, 0x0C54,
    0x0C57, 0x0C5F,
    0x0C62, 0x0C65,
    0x0C70, 0x0C81,
    0x0C84, 0x0C84,
    0x0C8D, 0x0C8D,
    0x0C91, 0x0C91,
    0x0CA9, 0x0CA9,
    0x0CB4, 0x0CB4,
    0x0CBA, 0x0CBD,
    0x0CC5, 0x0CC5,
    0x0CC9, 0x0CC9,
    0x0CCE, 0x0CD4,
    0x0CD7, 0x0CDD,
    0x0CDF, 0x0CDF,
    0x0CE2, 0x0CE5,
    0x0CF0, 0x0D01,
    0x0D04, 0x0D04,
    0x0D0D, 0x0D0D,
    0x0D11, 0x0D11,
    0x0D29, 0x0D29,
    0x0D3A, 0x0D3D,
    0x0D44, 0x0D45,
    0x0D49, 0x0D49,
    0x0D4E, 0x0D56,
    0x0D58, 0x0D5F,
    0x0D62, 0x0D65,
    0x0D70, 0x0D81,
    0x0D84, 0x0D84,
    0x0D97, 0x0D99,
    0x0DB2, 0x0DB2,
    0x0DBC, 0x0DBC,
    0x0DBE, 0x0DBF,
    0x0DC7, 0x0DC9,
    0x0DCB, 0x0DCE,
    0x0DD5, 0x0DD5,
    0x0DD7, 0x0DD7,
    0x0DE0, 0x0DF1,
    0x0DF5, 0x0E00,
    0x0E3B, 0x0E3E,
    0x0E5C, 0x0E80,
    0x0E83, 0x0E83,
    0x0E85, 0x0E86,
    0x0E89, 0x0E89,
    0x0E8B, 0x0E8C,
    0x0E8E, 0x0E93,
    0x0E98, 0x0E98,
    0x0EA0, 0x0EA0,
    0x0EA4, 0x0EA4,
    0x0EA6, 0x0EA6,
    0x0EA8, 0x0EA9,
    0x0EAC, 0x0EAC,
    0x0EBA, 0x0EBA,
    0x0EBE, 0x0EBF,
    0x0EC5, 0x0EC5,
    0x0EC7, 0x0EC7,
    0x0ECE, 0x0ECF,
    0x0EDA, 0x0EDB,
    0x0EDE, 0x0EFF,
    0x0F48, 0x0F48,
    0x0F6B, 0x0F70,
    0x0F8C, 0x0F8F,
    0x0F98, 0x0F98,
    0x0FBD, 0x0FBD,
    0x0FCD, 0x0FCE,
    0x0FD0, 0x0FFF,
    0x1022, 0x1022,
    0x1028, 0x1028,
    0x102B, 0x102B,
    0x1033, 0x1035,
    0x103A, 0x103F,
    0x105A, 0x109F,
    0x10C6, 0x10CF,
    0x10F9, 0x10FA,
    0x10FC, 0x10FF,
    0x115A, 0x115E,
    0x11A3, 0x11A7,
    0x11FA, 0x11FF,
    0x1207, 0x1207,
    0x1247, 0x1247,
    0x1249, 0x1249,
    0x124E, 0x124F,
    0x1257, 0x1257,
    0x1259, 0x1259,
    0x125E, 0x125F,
    0x1287, 0x1287,
    0x1289, 0x1289,
    0x128E, 0x128F,
    0x12AF, 0x12AF,
    0x12B1, 0x12B1,
    0x12B6, 0x12B7,
    0x12BF, 0x12BF,
    0x12C1, 0x12C1,
    0x12C6, 0x12C7,
    0x12CF, 0x12CF,
    0x12D7, 0x12D7,
    0x12EF, 0x12EF,
    0x130F, 0x130F,
    0x1311, 0x1311,
    0x1316, 0x1317,
    0x131F, 0x131F,
    0x1347, 0x1347,
    0x135B, 0x1360,
    0x137D, 0x139F,
    0x13F5, 0x1400,
    0x1677, 0x167F,
    0x169D, 0x169F,
    0x16F1, 0x16FF,
    0x170D, 0x170D,
    0x1715, 0x171F,
    0x1737, 0x173F,
    0x1754, 0x175F,
    0x176D, 0x176D,
    0x1771, 0x1771,
    0x1774, 0x177F,
    0x17DD, 0x17DF,
    0x17EA, 0x17FF,
    0x180F, 0x180F,
    0x181A, 0x181F,
    0x1878, 0x187F,
    0x18AA, 0x1DFF,
    0x1E9C, 0x1E9F,
    0x1EFA, 0x1EFF,
    0x1F16, 0x1F17,
    0x1F1E, 0x1F1F,
    0x1F46, 0x1F47,
    0x1F4E, 0x1F4F,
    0x1F58, 0x1F58,
    0x1F5A, 0x1F5A,
    0x1F5C, 0x1F5C,
    0x1F5E, 0x1F5E,
    0x1F7E, 0x1F7F,
    0x1FB5, 0x1FB5,
    0x1FC5, 0x1FC5,
    0x1FD4, 0x1FD5,
    0x1FDC, 0x1FDC,
    0x1FF0, 0x1FF1,
    0x1FF5, 0x1FF5,
    0x1FFF, 0x1FFF,
    0x2053, 0x2056,
    0x2058, 0x205E,
    0x2064, 0x2069,
    0x2072, 0x2073,
    0x208F, 0x209F,
    0x20B2, 0x20CF,
    0x20EB, 0x20FF,
    0x213B, 0x213C,
    0x214C, 0x2152,
    0x2184, 0x218F,
    0x23CF, 0x23FF,
    0x2427, 0x243F,
    0x244B, 0x245F,
    0x24FF, 0x24FF,
    0x2614, 0x2615,
    0x2618, 0x2618,
    0x267E, 0x267F,
    0x268A, 0x2700,
    0x2705, 0x2705,
    0x270A, 0x270B,
    0x2728, 0x2728,
    0x274C, 0x274C,
    0x274E, 0x274E,
    0x2753, 0x2755,
    0x2757, 0x2757,
    0x275F, 0x2760,
    0x2795, 0x2797,
    0x27B0, 0x27B0,
    0x27BF, 0x27CF,
    0x27EC, 0x27EF,
    0x2B00, 0x2E7F,
    0x2E9A, 0x2E9A,
    0x2EF4, 0x2EFF,
    0x2FD6, 0x2FEF,
    0x2FFC, 0x2FFF,
    0x3040, 0x3040,
    0x3097, 0x3098,
    0x3100, 0x3104,
    0x312D, 0x3130,
    0x318F, 0x318F,
    0x31B8, 0x31EF,
    0x321D, 0x321F,
    0x3244, 0x3250,
    0x327C, 0x327E,
    0x32CC, 0x32CF,
    0x32FF, 0x32FF,
    0x3377, 0x337A,
    0x33DE, 0x33DF,
    0x33FF, 0x33FF,
    0x4DB6, 0x4DFF,
    0x9FA6, 0x9FFF,
    0xA48D, 0xA48F,
    0xA4C7, 0xABFF,
    0xD7A4, 0xD7FF,
    0xFA2E, 0xFA2F,
    0xFA6B, 0xFAFF,
    0xFB07, 0xFB12,
    0xFB18, 0xFB1C,
    0xFB37, 0xFB37,
    0xFB3D, 0xFB3D,
    0xFB3F, 0xFB3F,
    0xFB42, 0xFB42,
    0xFB45, 0xFB45,
    0xFBB2, 0xFBD2,
    0xFD40, 0xFD4F,
    0xFD90, 0xFD91,
    0xFDC8, 0xFDCF,
    0xFDFD, 0xFDFF,
    0xFE10, 0xFE1F,
    0xFE24, 0xFE2F,
    0xFE47, 0xFE48,
    0xFE53, 0xFE53,
    0xFE67, 0xFE67,
    0xFE6C, 0xFE6F,
    0xFE75, 0xFE75,
    0xFEFD, 0xFEFE,
    0xFF00, 0xFF00,
    0xFFBF, 0xFFC1,
    0xFFC8, 0xFFC9,
    0xFFD0, 0xFFD1,
    0xFFD8, 0xFFD9,
    0xFFDD, 0xFFDF,
    0xFFE7, 0xFFE7,
    0xFFEF, 0xFFF8,
    0x10000, 0x102FF,
    0x1031F, 0x1031F,
    0x10324, 0x1032F,
    0x1034B, 0x103FF,
    0x10426, 0x10427,
    0x1044E, 0x1CFFF,
    0x1D0F6, 0x1D0FF,
    0x1D127, 0x1D129,
    0x1D1DE, 0x1D3FF,
    0x1D455, 0x1D455,
    0x1D49D, 0x1D49D,
    0x1D4A0, 0x1D4A1,
    0x1D4A3, 0x1D4A4,
    0x1D4A7, 0x1D4A8,
    0x1D4AD, 0x1D4AD,
    0x1D4BA, 0x1D4BA,
    0x1D4BC, 0x1D4BC,
    0x1D4C1, 0x1D4C1,
    0x1D4C4, 0x1D4C4,
    0x1D506, 0x1D506,
    0x1D50B, 0x1D50C,
    0x1D515, 0x1D515,
    0x1D51D, 0x1D51D,
    0x1D53A, 0x1D53A,
    0x1D53F, 0x1D53F,
    0x1D545, 0x1D545,
    0x1D547, 0x1D549,
    0x1D551, 0x1D551,
    0x1D6A4, 0x1D6A7,
    0x1D7CA, 0x1D7CD,
    0x1D800, 0x1FFFD,
    0x2A6D7, 0x2F7FF,
    0x2FA1E, 0x2FFFD,
    0x30000, 0x3FFFD,
    0x40000, 0x4FFFD,
    0x50000, 0x5FFFD,
    0x60000, 0x6FFFD,
    0x70000, 0x7FFFD,
    0x80000, 0x8FFFD,
    0x90000, 0x9FFFD,
    0xA0000, 0xAFFFD,
    0xB0000, 0xBFFFD,
    0xC0000, 0xCFFFD,
    0xD0000, 0xDFFFD,
    0xE0000, 0xE0000,
    0xE0002, 0xE001F,
    0xE0080, 0xEFFFD
};

/* D.1 Characters with bidirectional property "R" or "AL" */
static const pg_wchar RandALCat_codepoint_ranges[] =
{
    0x05BE, 0x05BE,
    0x05C0, 0x05C0,
    0x05C3, 0x05C3,
    0x05D0, 0x05EA,
    0x05F0, 0x05F4,
    0x061B, 0x061B,
    0x061F, 0x061F,
    0x0621, 0x063A,
    0x0640, 0x064A,
    0x066D, 0x066F,
    0x0671, 0x06D5,
    0x06DD, 0x06DD,
    0x06E5, 0x06E6,
    0x06FA, 0x06FE,
    0x0700, 0x070D,
    0x0710, 0x0710,
    0x0712, 0x072C,
    0x0780, 0x07A5,
    0x07B1, 0x07B1,
    0x200F, 0x200F,
    0xFB1D, 0xFB1D,
    0xFB1F, 0xFB28,
    0xFB2A, 0xFB36,
    0xFB38, 0xFB3C,
    0xFB3E, 0xFB3E,
    0xFB40, 0xFB41,
    0xFB43, 0xFB44,
    0xFB46, 0xFBB1,
    0xFBD3, 0xFD3D,
    0xFD50, 0xFD8F,
    0xFD92, 0xFDC7,
    0xFDF0, 0xFDFC,
    0xFE70, 0xFE74,
    0xFE76, 0xFEFC
};

/* D.2 Characters with bidirectional property "L" */
static const pg_wchar LCat_codepoint_ranges[] =
{
    0x0041, 0x005A,
    0x0061, 0x007A,
    0x00AA, 0x00AA,
    0x00B5, 0x00B5,
    0x00BA, 0x00BA,
    0x00C0, 0x00D6,
    0x00D8, 0x00F6,
    0x00F8, 0x0220,
    0x0222, 0x0233,
    0x0250, 0x02AD,
    0x02B0, 0x02B8,
    0x02BB, 0x02C1,
    0x02D0, 0x02D1,
    0x02E0, 0x02E4,
    0x02EE, 0x02EE,
    0x037A, 0x037A,
    0x0386, 0x0386,
    0x0388, 0x038A,
    0x038C, 0x038C,
    0x038E, 0x03A1,
    0x03A3, 0x03CE,
    0x03D0, 0x03F5,
    0x0400, 0x0482,
    0x048A, 0x04CE,
    0x04D0, 0x04F5,
    0x04F8, 0x04F9,
    0x0500, 0x050F,
    0x0531, 0x0556,
    0x0559, 0x055F,
    0x0561, 0x0587,
    0x0589, 0x0589,
    0x0903, 0x0903,
    0x0905, 0x0939,
    0x093D, 0x0940,
    0x0949, 0x094C,
    0x0950, 0x0950,
    0x0958, 0x0961,
    0x0964, 0x0970,
    0x0982, 0x0983,
    0x0985, 0x098C,
    0x098F, 0x0990,
    0x0993, 0x09A8,
    0x09AA, 0x09B0,
    0x09B2, 0x09B2,
    0x09B6, 0x09B9,
    0x09BE, 0x09C0,
    0x09C7, 0x09C8,
    0x09CB, 0x09CC,
    0x09D7, 0x09D7,
    0x09DC, 0x09DD,
    0x09DF, 0x09E1,
    0x09E6, 0x09F1,
    0x09F4, 0x09FA,
    0x0A05, 0x0A0A,
    0x0A0F, 0x0A10,
    0x0A13, 0x0A28,
    0x0A2A, 0x0A30,
    0x0A32, 0x0A33,
    0x0A35, 0x0A36,
    0x0A38, 0x0A39,
    0x0A3E, 0x0A40,
    0x0A59, 0x0A5C,
    0x0A5E, 0x0A5E,
    0x0A66, 0x0A6F,
    0x0A72, 0x0A74,
    0x0A83, 0x0A83,
    0x0A85, 0x0A8B,
    0x0A8D, 0x0A8D,
    0x0A8F, 0x0A91,
    0x0A93, 0x0AA8,
    0x0AAA, 0x0AB0,
    0x0AB2, 0x0AB3,
    0x0AB5, 0x0AB9,
    0x0ABD, 0x0AC0,
    0x0AC9, 0x0AC9,
    0x0ACB, 0x0ACC,
    0x0AD0, 0x0AD0,
    0x0AE0, 0x0AE0,
    0x0AE6, 0x0AEF,
    0x0B02, 0x0B03,
    0x0B05, 0x0B0C,
    0x0B0F, 0x0B10,
    0x0B13, 0x0B28,
    0x0B2A, 0x0B30,
    0x0B32, 0x0B33,
    0x0B36, 0x0B39,
    0x0B3D, 0x0B3E,
    0x0B40, 0x0B40,
    0x0B47, 0x0B48,
    0x0B4B, 0x0B4C,
    0x0B57, 0x0B57,
    0x0B5C, 0x0B5D,
    0x0B5F, 0x0B61,
    0x0B66, 0x0B70,
    0x0B83, 0x0B83,
    0x0B85, 0x0B8A,
    0x0B8E, 0x0B90,
    0x0B92, 0x0B95,
    0x0B99, 0x0B9A,
    0x0B9C, 0x0B9C,
    0x0B9E, 0x0B9F,
    0x0BA3, 0x0BA4,
    0x0BA8, 0x0BAA,
    0x0BAE, 0x0BB5,
    0x0BB7, 0x0BB9,
    0x0BBE, 0x0BBF,
    0x0BC1, 0x0BC2,
    0x0BC6, 0x0BC8,
    0x0BCA, 0x0BCC,
    0x0BD7, 0x0BD7,
    0x0BE7, 0x0BF2,
    0x0C01, 0x0C03,
    0x0C05, 0x0C0C,
    0x0C0E, 0x0C10,
    0x0C12, 0x0C28,
    0x0C2A, 0x0C33,
    0x0C35, 0x0C39,
    0x0C41, 0x0C44,
    0x0C60, 0x0C61,
    0x0C66, 0x0C6F,
    0x0C82, 0x0C83,
    0x0C85, 0x0C8C,
    0x0C8E, 0x0C90,
    0x0C92, 0x0CA8,
    0x0CAA, 0x0CB3,
    0x0CB5, 0x0CB9,
    0x0CBE, 0x0CBE,
    0x0CC0, 0x0CC4,
    0x0CC7, 0x0CC8,
    0x0CCA, 0x0CCB,
    0x0CD5, 0x0CD6,
    0x0CDE, 0x0CDE,
    0x0CE0, 0x0CE1,
    0x0CE6, 0x0CEF,
    0x0D02, 0x0D03,
    0x0D05, 0x0D0C,
    0x0D0E, 0x0D10,
    0x0D12, 0x0D28,
    0x0D2A, 0x0D39,
    0x0D3E, 0x0D40,
    0x0D46, 0x0D48,
    0x0D4A, 0x0D4C,
    0x0D57, 0x0D57,
    0x0D60, 0x0D61,
    0x0D66, 0x0D6F,
    0x0D82, 0x0D83,
    0x0D85, 0x0D96,
    0x0D9A, 0x0DB1,
    0x0DB3, 0x0DBB,
    0x0DBD, 0x0DBD,
    0x0DC0, 0x0DC6,
    0x0DCF, 0x0DD1,
    0x0DD8, 0x0DDF,
    0x0DF2, 0x0DF4,
    0x0E01, 0x0E30,
    0x0E32, 0x0E33,
    0x0E40, 0x0E46,
    0x0E4F, 0x0E5B,
    0x0E81, 0x0E82,
    0x0E84, 0x0E84,
    0x0E87, 0x0E88,
    0x0E8A, 0x0E8A,
    0x0E8D, 0x0E8D,
    0x0E94, 0x0E97,
    0x0E99, 0x0E9F,
    0x0EA1, 0x0EA3,
    0x0EA5, 0x0EA5,
    0x0EA7, 0x0EA7,
    0x0EAA, 0x0EAB,
    0x0EAD, 0x0EB0,
    0x0EB2, 0x0EB3,
    0x0EBD, 0x0EBD,
    0x0EC0, 0x0EC4,
    0x0EC6, 0x0EC6,
    0x0ED0, 0x0ED9,
    0x0EDC, 0x0EDD,
    0x0F00, 0x0F17,
    0x0F1A, 0x0F34,
    0x0F36, 0x0F36,
    0x0F38, 0x0F38,
    0x0F3E, 0x0F47,
    0x0F49, 0x0F6A,
    0x0F7F, 0x0F7F,
    0x0F85, 0x0F85,
    0x0F88, 0x0F8B,
    0x0FBE, 0x0FC5,
    0x0FC7, 0x0FCC,
    0x0FCF, 0x0FCF,
    0x1000, 0x1021,
    0x1023, 0x1027,
    0x1029, 0x102A,
    0x102C, 0x102C,
    0x1031, 0x1031,
    0x1038, 0x1038,
    0x1040, 0x1057,
    0x10A0, 0x10C5,
    0x10D0, 0x10F8,
    0x10FB, 0x10FB,
    0x1100, 0x1159,
    0x115F, 0x11A2,
    0x11A8, 0x11F9,
    0x1200, 0x1206,
    0x1208, 0x1246,
    0x1248, 0x1248,
    0x124A, 0x124D,
    0x1250, 0x1256,
    0x1258, 0x1258,
    0x125A, 0x125D,
    0x1260, 0x1286,
    0x1288, 0x1288,
    0x128A, 0x128D,
    0x1290, 0x12AE,
    0x12B0, 0x12B0,
    0x12B2, 0x12B5,
    0x12B8, 0x12BE,
    0x12C0, 0x12C0,
    0x12C2, 0x12C5,
    0x12C8, 0x12CE,
    0x12D0, 0x12D6,
    0x12D8, 0x12EE,
    0x12F0, 0x130E,
    0x1310, 0x1310,
    0x1312, 0x1315,
    0x1318, 0x131E,
    0x1320, 0x1346,
    0x1348, 0x135A,
    0x1361, 0x137C,
    0x13A0, 0x13F4,
    0x1401, 0x1676,
    0x1681, 0x169A,
    0x16A0, 0x16F0,
    0x1700, 0x170C,
    0x170E, 0x1711,
    0x1720, 0x1731,
    0x1735, 0x1736,
    0x1740, 0x1751,
    0x1760, 0x176C,
    0x176E, 0x1770,
    0x1780, 0x17B6,
    0x17BE, 0x17C5,
    0x17C7, 0x17C8,
    0x17D4, 0x17DA,
    0x17DC, 0x17DC,
    0x17E0, 0x17E9,
    0x1810, 0x1819,
    0x1820, 0x1877,
    0x1880, 0x18A8,
    0x1E00, 0x1E9B,
    0x1EA0, 0x1EF9,
    0x1F00, 0x1F15,
    0x1F18, 0x1F1D,
    0x1F20, 0x1F45,
    0x1F48, 0x1F4D,
    0x1F50, 0x1F57,
    0x1F59, 0x1F59,
    0x1F5B, 0x1F5B,
    0x1F5D, 0x1F5D,
    0x1F5F, 0x1F7D,
    0x1F80, 0x1FB4,
    0x1FB6, 0x1FBC,
    0x1FBE, 0x1FBE,
    0x1FC2, 0x1FC4,
    0x1FC6, 0x1FCC,
    0x1FD0, 0x1FD3,
    0x1FD6, 0x1FDB,
    0x1FE0, 0x1FEC,
    0x1FF2, 0x1FF4,
    0x1FF6, 0x1FFC,
    0x200E, 0x200E,
    0x2071, 0x2071,
    0x207F, 0x207F,
    0x2102, 0x2102,
    0x2107, 0x2107,
    0x210A, 0x2113,
    0x2115, 0x2115,
    0x2119, 0x211D,
    0x2124, 0x2124,
    0x2126, 0x2126,
    0x2128, 0x2128,
    0x212A, 0x212D,
    0x212F, 0x2131,
    0x2133, 0x2139,
    0x213D, 0x213F,
    0x2145, 0x2149,
    0x2160, 0x2183,
    0x2336, 0x237A,
    0x2395, 0x2395,
    0x249C, 0x24E9,
    0x3005, 0x3007,
    0x3021, 0x3029,
    0x3031, 0x3035,
    0x3038, 0x303C,
    0x3041, 0x3096,
    0x309D, 0x309F,
    0x30A1, 0x30FA,
    0x30FC, 0x30FF,
    0x3105, 0x312C,
    0x3131, 0x318E,
    0x3190, 0x31B7,
    0x31F0, 0x321C,
    0x3220, 0x3243,
    0x3260, 0x327B,
    0x327F, 0x32B0,
    0x32C0, 0x32CB,
    0x32D0, 0x32FE,
    0x3300, 0x3376,
    0x337B, 0x33DD,
    0x33E0, 0x33FE,
    0x3400, 0x4DB5,
    0x4E00, 0x9FA5,
    0xA000, 0xA48C,
    0xAC00, 0xD7A3,
    0xD800, 0xFA2D,
    0xFA30, 0xFA6A,
    0xFB00, 0xFB06,
    0xFB13, 0xFB17,
    0xFF21, 0xFF3A,
    0xFF41, 0xFF5A,
    0xFF66, 0xFFBE,
    0xFFC2, 0xFFC7,
    0xFFCA, 0xFFCF,
    0xFFD2, 0xFFD7,
    0xFFDA, 0xFFDC,
    0x10300, 0x1031E,
    0x10320, 0x10323,
    0x10330, 0x1034A,
    0x10400, 0x10425,
    0x10428, 0x1044D,
    0x1D000, 0x1D0F5,
    0x1D100, 0x1D126,
    0x1D12A, 0x1D166,
    0x1D16A, 0x1D172,
    0x1D183, 0x1D184,
    0x1D18C, 0x1D1A9,
    0x1D1AE, 0x1D1DD,
    0x1D400, 0x1D454,
    0x1D456, 0x1D49C,
    0x1D49E, 0x1D49F,
    0x1D4A2, 0x1D4A2,
    0x1D4A5, 0x1D4A6,
    0x1D4A9, 0x1D4AC,
    0x1D4AE, 0x1D4B9,
    0x1D4BB, 0x1D4BB,
    0x1D4BD, 0x1D4C0,
    0x1D4C2, 0x1D4C3,
    0x1D4C5, 0x1D505,
    0x1D507, 0x1D50A,
    0x1D50D, 0x1D514,
    0x1D516, 0x1D51C,
    0x1D51E, 0x1D539,
    0x1D53B, 0x1D53E,
    0x1D540, 0x1D544,
    0x1D546, 0x1D546,
    0x1D54A, 0x1D550,
    0x1D552, 0x1D6A3,
    0x1D6A8, 0x1D7C9,
    0x20000, 0x2A6D6,
    0x2F800, 0x2FA1D,
    0xF0000, 0xFFFFD,
    0x100000, 0x10FFFD
};

/* End of stringprep tables */


/* Is the given Unicode codepoint in the given table of ranges? */
#define IS_CODE_IN_TABLE(code, map) is_code_in_table(code, map, lengthof(map))

static int
codepoint_range_cmp(const void *a, const void *b)
{
    const pg_wchar *key = (const pg_wchar *) a;
    const pg_wchar *range = (const pg_wchar *) b;

    if (*key < range[0])
        return -1;                /* less than lower bound */
    if (*key > range[1])
        return 1;                /* greater than upper bound */

    return 0;                    /* within range */
}

static bool
is_code_in_table(pg_wchar code, const pg_wchar *map, int mapsize)
{
    Assert(mapsize % 2 == 0);

    if (code < map[0] || code > map[mapsize - 1])
        return false;

    if (bsearch(&code, map, mapsize / 2, sizeof(pg_wchar) * 2,
                codepoint_range_cmp))
        return true;
    else
        return false;
}

/*
 * Calculate the length in characters of a null-terminated UTF-8 string.
 *
 * Returns -1 if the input is not valid UTF-8.
 */
static int
pg_utf8_string_len(const char *source)
{
    const unsigned char *p = (const unsigned char *) source;
    int            l;
    int            num_chars = 0;

    while (*p)
    {
        l = pg_utf_mblen(p);

        if (!pg_utf8_islegal(p, l))
            return -1;

        p += l;
        num_chars++;
    }

    return num_chars;
}

/*
 * Returns true if the input string is pure ASCII.
 */
static bool
pg_is_ascii_string(const char *p)
{
    while (*p)
    {
        if (IS_HIGHBIT_SET(*p))
            return false;
        p++;
    }
    return true;
}


/*
 * pg_saslprep - Normalize a password with SASLprep.
 *
 * SASLprep requires the input to be in UTF-8 encoding, but PostgreSQL
 * supports many encodings, so we don't blindly assume that.  pg_saslprep
 * will check if the input looks like valid UTF-8, and returns
 * SASLPREP_INVALID_UTF8 if not.
 *
 * If the string contains prohibited characters (or more precisely, if the
 * output string would contain prohibited characters after normalization),
 * returns SASLPREP_PROHIBITED.
 *
 * On success, returns SASLPREP_SUCCESS, and the normalized string in
 * *output.
 *
 * In frontend, the normalized string is malloc'd, and the caller is
 * responsible for freeing it.  If an allocation fails, returns
 * SASLPREP_OOM.  In backend, the normalized string is palloc'd instead,
 * and a failed allocation leads to ereport(ERROR).
 */
pg_saslprep_rc
pg_saslprep(const char *input, char **output)
{// #lizard forgives
    pg_wchar   *input_chars = NULL;
    pg_wchar   *output_chars = NULL;
    int            input_size;
    char       *result;
    int            result_size;
    int            count;
    int            i;
    bool        contains_RandALCat;
    unsigned char *p;
    pg_wchar   *wp;

    /* Check that the password isn't stupendously long */
    if (strlen(input) > MAX_PASSWORD_LENGTH)
    {
#ifndef FRONTEND
        ereport(ERROR,
                (errcode(ERRCODE_PROGRAM_LIMIT_EXCEEDED),
                 errmsg("password too long")));
#else
        return SASLPREP_OOM;
#endif
    }

    /*
     * Quick check if the input is pure ASCII.  An ASCII string requires no
     * further processing.
     */
    if (pg_is_ascii_string(input))
    {
        *output = STRDUP(input);
        if (!(*output))
            goto oom;
        return SASLPREP_SUCCESS;
    }

    /*
     * Convert the input from UTF-8 to an array of Unicode codepoints.
     *
     * This also checks that the input is a legal UTF-8 string.
     */
    input_size = pg_utf8_string_len(input);
    if (input_size < 0)
    {
        *output = NULL;
        return SASLPREP_INVALID_UTF8;
    }

    input_chars = ALLOC((input_size + 1) * sizeof(pg_wchar));
    if (!input_chars)
        goto oom;

    p = (unsigned char *) input;
    for (i = 0; i < input_size; i++)
    {
        input_chars[i] = utf8_to_unicode(p);
        p += pg_utf_mblen(p);
    }
    input_chars[i] = (pg_wchar) '\0';

    /*
     * The steps below correspond to the steps listed in [RFC3454], Section
     * "2. Preparation Overview"
     */

    /*
     * 1) Map -- For each character in the input, check if it has a mapping
     * and, if so, replace it with its mapping.
     */
    count = 0;
    for (i = 0; i < input_size; i++)
    {
        pg_wchar    code = input_chars[i];

        if (IS_CODE_IN_TABLE(code, non_ascii_space_ranges))
            input_chars[count++] = 0x0020;
        else if (IS_CODE_IN_TABLE(code, commonly_mapped_to_nothing_ranges))
        {
            /* map to nothing */
        }
        else
            input_chars[count++] = code;
    }
    input_chars[count] = (pg_wchar) '\0';
    input_size = count;

    if (input_size == 0)
        goto prohibited;        /* don't allow empty password */

    /*
     * 2) Normalize -- Normalize the result of step 1 using Unicode
     * normalization.
     */
    output_chars = unicode_normalize_kc(input_chars);
    if (!output_chars)
        goto oom;

    /*
     * 3) Prohibit -- Check for any characters that are not allowed in the
     * output.  If any are found, return an error.
     */
    for (i = 0; i < input_size; i++)
    {
        pg_wchar    code = input_chars[i];

        if (IS_CODE_IN_TABLE(code, prohibited_output_ranges))
            goto prohibited;
        if (IS_CODE_IN_TABLE(code, unassigned_codepoint_ranges))
            goto prohibited;
    }

    /*
     * 4) Check bidi -- Possibly check for right-to-left characters, and if
     * any are found, make sure that the whole string satisfies the
     * requirements for bidirectional strings.  If the string does not satisfy
     * the requirements for bidirectional strings, return an error.
     *
     * [RFC3454], Section "6. Bidirectional Characters" explains in more
     * detail what that means:
     *
     * "In any profile that specifies bidirectional character handling, all
     * three of the following requirements MUST be met:
     *
     * 1) The characters in section 5.8 MUST be prohibited.
     *
     * 2) If a string contains any RandALCat character, the string MUST NOT
     * contain any LCat character.
     *
     * 3) If a string contains any RandALCat character, a RandALCat character
     * MUST be the first character of the string, and a RandALCat character
     * MUST be the last character of the string."
     */
    contains_RandALCat = false;
    for (i = 0; i < input_size; i++)
    {
        pg_wchar    code = input_chars[i];

        if (IS_CODE_IN_TABLE(code, RandALCat_codepoint_ranges))
        {
            contains_RandALCat = true;
            break;
        }
    }

    if (contains_RandALCat)
    {
        pg_wchar    first = input_chars[0];
        pg_wchar    last = input_chars[input_size - 1];

        for (i = 0; i < input_size; i++)
        {
            pg_wchar    code = input_chars[i];

            if (IS_CODE_IN_TABLE(code, LCat_codepoint_ranges))
                goto prohibited;
        }

        if (!IS_CODE_IN_TABLE(first, RandALCat_codepoint_ranges) ||
            !IS_CODE_IN_TABLE(last, RandALCat_codepoint_ranges))
            goto prohibited;
    }

    /*
     * Finally, convert the result back to UTF-8.
     */
    result_size = 0;
    for (wp = output_chars; *wp; wp++)
    {
        unsigned char buf[4];

        unicode_to_utf8(*wp, buf);
        result_size += pg_utf_mblen(buf);
    }

    result = ALLOC(result_size + 1);
    if (!result)
        goto oom;
    p = (unsigned char *) result;
    for (wp = output_chars; *wp; wp++)
    {
        unicode_to_utf8(*wp, p);
        p += pg_utf_mblen(p);
    }
    Assert((char *) p == result + result_size);
    *p = '\0';

    FREE(input_chars);
    FREE(output_chars);

    *output = result;
    return SASLPREP_SUCCESS;

prohibited:
    if (input_chars)
        FREE(input_chars);
    if (output_chars)
        FREE(output_chars);

    return SASLPREP_PROHIBITED;

oom:
    if (input_chars)
        FREE(input_chars);
    if (output_chars)
        FREE(output_chars);

    return SASLPREP_OOM;
}
